home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ML_VECTB.ZIP / UTILS / MKFORM1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-06  |  2KB  |  117 lines
  1.  
  2. uses dosio;
  3. var
  4.   coord:array[0..60] of record x,y,z:integer end;
  5.   max:word;
  6.   f:file;
  7.  
  8. Procedure BuildForm;
  9. var a:word;
  10. begin
  11.   max:=0;
  12.   for a:=0 to 4 do begin
  13.     with coord[max] do begin
  14.       x:=a*20; y:=0; z:=0;
  15.     end;
  16.     inc(max);
  17.   end;
  18.   for a:=1 to 4 do begin
  19.     with coord[max] do begin
  20.       x:=4*20; y:=0; z:=a*20;
  21.     end;
  22.     inc(max);
  23.   end;
  24.   for a:=3 downto 0 do begin
  25.     with coord[max] do begin
  26.       x:=a*20; y:=0; z:=4*20;
  27.     end;
  28.     inc(max);
  29.   end;
  30.   for a:=3 downto 1 do begin
  31.     with coord[max] do begin
  32.       x:=0; y:=0; z:=a*20;
  33.     end;
  34.     inc(max);
  35.   end;
  36.   for a:=1 to 4 do begin
  37.     with coord[max] do begin
  38.       x:=0; y:=a*20; z:=0;
  39.     end;
  40.     inc(max);
  41.   end;
  42.   for a:=1 to 4 do begin
  43.     with coord[max] do begin
  44.       x:=a*20; y:=4*20; z:=0;
  45.     end;
  46.     inc(max);
  47.   end;
  48.   for a:=1 to 4 do begin
  49.     with coord[max] do begin
  50.       x:=4*20; y:=4*20; z:=a*20;
  51.     end;
  52.     inc(max);
  53.   end;
  54.   for a:=3 downto 0 do begin
  55.     with coord[max] do begin
  56.       x:=a*20; y:=4*20; z:=4*20;
  57.     end;
  58.     inc(max);
  59.   end;
  60.   for a:=3 downto 1 do begin
  61.     with coord[max] do begin
  62.       x:=0; y:=4*20; z:=a*20;
  63.     end;
  64.     inc(max);
  65.   end;
  66.   for a:=3 downto 1 do begin
  67.     with coord[max] do begin
  68.       x:=4*20; y:=a*20; z:=0;
  69.     end;
  70.     inc(max);
  71.   end;
  72.   for a:=3 downto 1 do begin
  73.     with coord[max] do begin
  74.       x:=4*20; y:=a*20; z:=4*20;
  75.     end;
  76.     inc(max);
  77.   end;
  78.   for a:=3 downto 1 do begin
  79.     with coord[max] do begin
  80.       x:=0; y:=a*20; z:=4*20;
  81.     end;
  82.     inc(max);
  83.   end;
  84.   for a:=1 to 1 do begin
  85.     with coord[max] do begin
  86.       x:=40; y:=40; z:=0;
  87.     end;
  88.     inc(max);
  89.   end;
  90.   for a:=1 to 1 do begin
  91.     with coord[max] do begin
  92.       x:=80; y:=40; z:=40;
  93.     end;
  94.     inc(max);
  95.   end;
  96.   for a:=1 to 1 do begin
  97.     with coord[max] do begin
  98.       x:=40; y:=40; z:=80;
  99.     end;
  100.     inc(max);
  101.   end;
  102.   for a:=1 to 1 do begin
  103.     with coord[max] do begin
  104.       x:=0; y:=40; z:=40;
  105.     end;
  106.     inc(max);
  107.   end;
  108. end;
  109.  
  110. begin
  111.   Writeln('Making figure ...');
  112.   openforoutput(f,'_cube.bal','');
  113.   BuildForm;
  114.   blockwrite(f,max,2);  { Nr of points in the 3D form }
  115.   blockwrite(f,coord,max*3*2);
  116.   closefile(f,'');
  117. end.